Imports Microsoft.VisualBasic
Imports Oracle.DataAccess.Client
Imports Oracle.DataAccess.Types
Imports System.Data
Imports DataAccesGenerales
Imports DataAcces

Public Class DataAccesCapt_ShipParticulars
  Private Const consTimeOut As Integer = 0 

    ''' <summary>
    ''' Funcion para Insertar un regristro en la tabla Capt_ShipParticulars
    ''' </summary>
   Public Function Capt_ShipParticulars_InsertarModificar(pnidNaviera As Long, pnidConsignataria As Long, pnidCliente As Long, pcolor_Casco As String, pcapitan As String, ppuerto_Reg As String, pcodigo_Llamada As String, pnum_Oficial As Integer, pnum_Omi As Integer, pcolocacion_Quilla As Integer, ppuesto_Marcha As Integer, pTRB As Long, pTRN As Long, ppeso_Muerto As Long, pconstructores As String, pclase As String, pmotor As String, ppropietarios As String, poperador As String, pmanga As Long, ppuntal As Long, pcalado_Popa As Long, pcalado_Proa As Long, peslora_Total As Long, peslora_Perpendiculares As Long, paltura As Long, pluz As Long, pcalado_Construccion As Long) As Byte
        Dim pTransaccion As Byte = 0
        Dim mensaje As String = String.Empty
        Try
            Using oraConnection As New Oracle.DataAccess.Client.OracleConnection(ConfigurationManager.ConnectionStrings("EDIV2DESOraClient").ConnectionString)
                Using oraCommandDocumentos As New Oracle.DataAccess.Client.OracleCommand()
                    oraCommandDocumentos.Connection = oraConnection
                    oraCommandDocumentos.CommandTimeout = consTimeOut
                    oraCommandDocumentos.CommandType = CommandType.StoredProcedure
                    oraCommandDocumentos.CommandText = "EDIV2.?NomPaquete.Capt_ShipParticularsInsertarModificar"
          oraCommandDocumentos.Parameters.Add("pnidNaviera", pnidNaviera)
          oraCommandDocumentos.Parameters.Add("pnidConsignataria", pnidConsignataria)
          oraCommandDocumentos.Parameters.Add("pnidCliente", pnidCliente)
          oraCommandDocumentos.Parameters.Add("pcolor_Casco", pcolor_Casco)
          oraCommandDocumentos.Parameters.Add("pcapitan", pcapitan)
          oraCommandDocumentos.Parameters.Add("ppuerto_Reg", ppuerto_Reg)
          oraCommandDocumentos.Parameters.Add("pcodigo_Llamada", pcodigo_Llamada)
          oraCommandDocumentos.Parameters.Add("pnum_Oficial", pnum_Oficial)
          oraCommandDocumentos.Parameters.Add("pnum_Omi", pnum_Omi)
          oraCommandDocumentos.Parameters.Add("pcolocacion_Quilla", pcolocacion_Quilla)
          oraCommandDocumentos.Parameters.Add("ppuesto_Marcha", ppuesto_Marcha)
          oraCommandDocumentos.Parameters.Add("pTRB", pTRB)
          oraCommandDocumentos.Parameters.Add("pTRN", pTRN)
          oraCommandDocumentos.Parameters.Add("ppeso_Muerto", ppeso_Muerto)
          oraCommandDocumentos.Parameters.Add("pconstructores", pconstructores)
          oraCommandDocumentos.Parameters.Add("pclase", pclase)
          oraCommandDocumentos.Parameters.Add("pmotor", pmotor)
          oraCommandDocumentos.Parameters.Add("ppropietarios", ppropietarios)
          oraCommandDocumentos.Parameters.Add("poperador", poperador)
          oraCommandDocumentos.Parameters.Add("pmanga", pmanga)
          oraCommandDocumentos.Parameters.Add("ppuntal", ppuntal)
          oraCommandDocumentos.Parameters.Add("pcalado_Popa", pcalado_Popa)
          oraCommandDocumentos.Parameters.Add("pcalado_Proa", pcalado_Proa)
          oraCommandDocumentos.Parameters.Add("peslora_Total", peslora_Total)
          oraCommandDocumentos.Parameters.Add("peslora_Perpendiculares", peslora_Perpendiculares)
          oraCommandDocumentos.Parameters.Add("paltura", paltura)
          oraCommandDocumentos.Parameters.Add("pluz", pluz)
          oraCommandDocumentos.Parameters.Add("pcalado_Construccion", pcalado_Construccion)

                    oraCommandDocumentos.Parameters.Add("pTransaccion", Oracle.DataAccess.Client.OracleDbType.Byte).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add("pMensaje", Oracle.DataAccess.Client.OracleDbType.Varchar2, 200).Direction = ParameterDirection.Output

                    oraConnection.Open()
                    oraCommandDocumentos.ExecuteNonQuery()
                    pTransaccion = CByte(oraCommandDocumentos.Parameters("pTransaccion").Value.ToString())
                    mensaje = oraCommandDocumentos.Parameters("pMensaje").Value.ToString()
                    oraConnection.Close()
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return pTransaccion
    End Function
  
    ''' <summary>
    ''' Funcion para consultar un registro de la tabla Capt_ShipParticulars
    ''' </summary>
    ''' <param name="pNidDocumento">numero de documento</param>
    ''' <returns>DataTable</returns>
    ''' <remarks></remarks>
   Public Function Capt_ShipParticulars_Consultar(pNidDocumento As Long) As DataTable
        Dim dtResultado As New DataTable("Capt_ShipParticularsConsulta")
        Try
            Using oraConnection As New Oracle.DataAccess.Client.OracleConnection(ConfigurationManager.ConnectionStrings("EDIV2DESOraClient").ConnectionString)
                Using oraCommandDocumentos As New Oracle.DataAccess.Client.OracleCommand()
                    oraCommandDocumentos.Connection = oraConnection
                    oraCommandDocumentos.CommandTimeout = consTimeOut
                    oraCommandDocumentos.CommandType = CommandType.StoredProcedure
                    oraCommandDocumentos.CommandText = "EDIV2.?NomPaquete.Capt_ShipParticularsConsultar"
                    oraCommandDocumentos.Parameters.Add("pNidDocumento", pNidDocumento)
                    oraCommandDocumentos.Parameters.Add("pTransaccion", Oracle.DataAccess.Client.OracleDbType.Byte).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add(New Oracle.DataAccess.Client.OracleParameter("pCursor", OracleDbType.RefCursor)).Direction = ParameterDirection.Output

                    Dim oraDataAdapter As New OracleDataAdapter(oraCommandDocumentos)
                    oraDataAdapter.Fill(dtResultado)
                    oraConnection.Close()
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return dtResultado
    End Function
  
    ''' <summary>
    ''' Funcion para generar la cadena XML Chilkat del documento de la tabla Capt_ShipParticulars
    ''' </summary>
    ''' <param name="nidDocumento"> numero del documento</param>
    ''' <returns>Chilkat.Xml</returns>
    ''' <remarks></remarks>
   Public Function Capt_ShipParticulars_CadenaOriginalXMLChilkat(nidDocumento As Long) As Chilkat.Xml
        Dim detalleDataSet As New DataSet("DatosCapt_ShipParticulars")
        Try
      detalleDataSet = Capt_ShipParticulars_DetalleXML(nidDocumento)
            'En esta parte van las tablas obtenidas en la consulta anterior
            'separadas dependiendo del reporte a crear, ejemplo:
            detalleDataSet.Tables(0).TableName = "Informacion del Tramite"
            detalleDataSet.Tables(1).TableName = "Datos Capt_ShipParticulars"
            detalleDataSet.Tables(2).TableName = "Archivos Anexos"
            detalleDataSet.Tables(3).TableName = "Incidencias"

            Dim xml As New Chilkat.Xml
            xml.LoadXml(detalleDataSet.GetXml())
            Return xml 'detalleDataSet.GetXml()
        Catch ex As Exception
            Throw ex
        End Try
    End Function

    ''' <summary>
    ''' Funcion para consultar el detalle del documento de la tabla Capt_ShipParticulars
    ''' </summary>
    ''' <param name="pNidDocumento">numero del documento</param>
    ''' <returns>DataSet</returns>
    ''' <remarks></remarks>
   Public Function Capt_ShipParticulars_DetalleXML(pNidDocumento As Long) As DataSet
        Dim dsDetalle As New DataSet("Capt_ShipParticularsDetalle")
        Dim pTransaccion As Byte = 0
        Try
            Using oraConnection As New Oracle.DataAccess.Client.OracleConnection(ConfigurationManager.ConnectionStrings("EDIV2DESOraClient").ConnectionString)
                Using oraCommandDocumentos As New Oracle.DataAccess.Client.OracleCommand()
                    oraCommandDocumentos.Connection = oraConnection
                    oraCommandDocumentos.CommandTimeout = consTimeOut
                    oraCommandDocumentos.CommandType = CommandType.StoredProcedure
                    oraCommandDocumentos.CommandText = "EDIV2.?NomPaquete.Capt_ShipParticularsDetalleXML"
                    oraCommandDocumentos.Parameters.Add("pNidDocumento", pNidDocumento)
                    oraCommandDocumentos.Parameters.Add("pTransaccion", Oracle.DataAccess.Client.OracleDbType.Byte).Direction = ParameterDirection.Output
                    'En esta parte es para los cursores necesario 
                    oraCommandDocumentos.Parameters.Add(New Oracle.DataAccess.Client.OracleParameter("pEncabezado", OracleDbType.RefCursor)).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add(New Oracle.DataAccess.Client.OracleParameter("pDatos", OracleDbType.RefCursor)).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add(New Oracle.DataAccess.Client.OracleParameter("pAnexos", OracleDbType.RefCursor)).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add(New Oracle.DataAccess.Client.OracleParameter("pIncidencias", OracleDbType.RefCursor)).Direction = ParameterDirection.Output

                    Dim oraDataAdapter As New OracleDataAdapter(oraCommandDocumentos)
                    'pTransaccion = CByte(oraCommandDocumentos.Parameters("pTransaccion").Value.ToString())
                    oraDataAdapter.Fill(dsDetalle)
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return dsDetalle
    End Function
  
   Public Function Capt_ShipParticulars_DatosBase() As DataTable
        Dim dtResultado As New DataTable("Capt_ShipParticularsConsulta")
        Try
            Using oraConnection As New Oracle.DataAccess.Client.OracleConnection(ConfigurationManager.ConnectionStrings("EDIV2DESOraClient").ConnectionString)
                Using oraCommandDocumentos As New Oracle.DataAccess.Client.OracleCommand()
                    oraCommandDocumentos.Connection = oraConnection
                    oraCommandDocumentos.CommandTimeout = consTimeOut
                    oraCommandDocumentos.CommandType = CommandType.StoredProcedure
                    oraCommandDocumentos.CommandText = "EDIV2.?NomPaquete.Capt_ShipParticularsDatosBase"
                    oraCommandDocumentos.Parameters.Add("pTransaccion", Oracle.DataAccess.Client.OracleDbType.Byte).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add(New Oracle.DataAccess.Client.OracleParameter("pCursor", OracleDbType.RefCursor)).Direction = ParameterDirection.Output

                    Dim oraDataAdapter As New OracleDataAdapter(oraCommandDocumentos)
                    oraDataAdapter.Fill(dtResultado)
                    oraConnection.Close()
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return dtResultado
    End Function
  
    ''' <summary>
    ''' Funcion para Insertar un regristro en la tabla Capt_ShipParticulars
    ''' </summary>
   Public Function Capt_ShipParticulars_Insertar(pnidNaviera As Long, pnidConsignataria As Long, pnidCliente As Long, pcolor_Casco As String, pcapitan As String, ppuerto_Reg As String, pcodigo_Llamada As String, pnum_Oficial As Integer, pnum_Omi As Integer, pcolocacion_Quilla As Integer, ppuesto_Marcha As Integer, pTRB As Long, pTRN As Long, ppeso_Muerto As Long, pconstructores As String, pclase As String, pmotor As String, ppropietarios As String, poperador As String, pmanga As Long, ppuntal As Long, pcalado_Popa As Long, pcalado_Proa As Long, peslora_Total As Long, peslora_Perpendiculares As Long, paltura As Long, pluz As Long, pcalado_Construccion As Long) As Byte
        Dim pTransaccion As Byte = 0
        Dim mensaje As String = String.Empty
        Try
            Using oraConnection As New Oracle.DataAccess.Client.OracleConnection(ConfigurationManager.ConnectionStrings("EDIV2DESOraClient").ConnectionString)
                Using oraCommandDocumentos As New Oracle.DataAccess.Client.OracleCommand()
                    oraCommandDocumentos.Connection = oraConnection
                    oraCommandDocumentos.CommandTimeout = consTimeOut
                    oraCommandDocumentos.CommandType = CommandType.StoredProcedure
                    oraCommandDocumentos.CommandText = "EDIV2.?NomPaquete.Capt_ShipParticularsInsertar"
          oraCommandDocumentos.Parameters.Add("pnidNaviera", pnidNaviera)
          oraCommandDocumentos.Parameters.Add("pnidConsignataria", pnidConsignataria)
          oraCommandDocumentos.Parameters.Add("pnidCliente", pnidCliente)
          oraCommandDocumentos.Parameters.Add("pcolor_Casco", pcolor_Casco)
          oraCommandDocumentos.Parameters.Add("pcapitan", pcapitan)
          oraCommandDocumentos.Parameters.Add("ppuerto_Reg", ppuerto_Reg)
          oraCommandDocumentos.Parameters.Add("pcodigo_Llamada", pcodigo_Llamada)
          oraCommandDocumentos.Parameters.Add("pnum_Oficial", pnum_Oficial)
          oraCommandDocumentos.Parameters.Add("pnum_Omi", pnum_Omi)
          oraCommandDocumentos.Parameters.Add("pcolocacion_Quilla", pcolocacion_Quilla)
          oraCommandDocumentos.Parameters.Add("ppuesto_Marcha", ppuesto_Marcha)
          oraCommandDocumentos.Parameters.Add("pTRB", pTRB)
          oraCommandDocumentos.Parameters.Add("pTRN", pTRN)
          oraCommandDocumentos.Parameters.Add("ppeso_Muerto", ppeso_Muerto)
          oraCommandDocumentos.Parameters.Add("pconstructores", pconstructores)
          oraCommandDocumentos.Parameters.Add("pclase", pclase)
          oraCommandDocumentos.Parameters.Add("pmotor", pmotor)
          oraCommandDocumentos.Parameters.Add("ppropietarios", ppropietarios)
          oraCommandDocumentos.Parameters.Add("poperador", poperador)
          oraCommandDocumentos.Parameters.Add("pmanga", pmanga)
          oraCommandDocumentos.Parameters.Add("ppuntal", ppuntal)
          oraCommandDocumentos.Parameters.Add("pcalado_Popa", pcalado_Popa)
          oraCommandDocumentos.Parameters.Add("pcalado_Proa", pcalado_Proa)
          oraCommandDocumentos.Parameters.Add("peslora_Total", peslora_Total)
          oraCommandDocumentos.Parameters.Add("peslora_Perpendiculares", peslora_Perpendiculares)
          oraCommandDocumentos.Parameters.Add("paltura", paltura)
          oraCommandDocumentos.Parameters.Add("pluz", pluz)
          oraCommandDocumentos.Parameters.Add("pcalado_Construccion", pcalado_Construccion)

                    oraCommandDocumentos.Parameters.Add("pTransaccion", Oracle.DataAccess.Client.OracleDbType.Byte).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add("pMensaje", Oracle.DataAccess.Client.OracleDbType.Varchar2, 200).Direction = ParameterDirection.Output

                    oraConnection.Open()
                    oraCommandDocumentos.ExecuteNonQuery()
                    pTransaccion = CByte(oraCommandDocumentos.Parameters("pTransaccion").Value.ToString())
                    mensaje = oraCommandDocumentos.Parameters("pMensaje").Value.ToString()
                    oraConnection.Close()
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return pTransaccion
    End Function

    ''' <summary>
    ''' Funcion para Modificar un regristro en la tabla Capt_ShipParticulars
    ''' </summary>
   Public Function Capt_ShipParticulars_Modificar(pnidNaviera As Long, pnidConsignataria As Long, pnidCliente As Long, pcolor_Casco As String, pcapitan As String, ppuerto_Reg As String, pcodigo_Llamada As String, pnum_Oficial As Integer, pnum_Omi As Integer, pcolocacion_Quilla As Integer, ppuesto_Marcha As Integer, pTRB As Long, pTRN As Long, ppeso_Muerto As Long, pconstructores As String, pclase As String, pmotor As String, ppropietarios As String, poperador As String, pmanga As Long, ppuntal As Long, pcalado_Popa As Long, pcalado_Proa As Long, peslora_Total As Long, peslora_Perpendiculares As Long, paltura As Long, pluz As Long, pcalado_Construccion As Long) As Byte
        Dim pTransaccion As Byte = 0
        Dim mensaje As String = String.Empty
        Try
            Using oraConnection As New Oracle.DataAccess.Client.OracleConnection(ConfigurationManager.ConnectionStrings("EDIV2DESOraClient").ConnectionString)
                Using oraCommandDocumentos As New Oracle.DataAccess.Client.OracleCommand()
                    oraCommandDocumentos.Connection = oraConnection
                    oraCommandDocumentos.CommandTimeout = consTimeOut
                    oraCommandDocumentos.CommandType = CommandType.StoredProcedure
                    oraCommandDocumentos.CommandText = "EDIV2.?NomPaquete.Capt_ShipParticularsModificar"
          oraCommandDocumentos.Parameters.Add("pnidNaviera", pnidNaviera)
          oraCommandDocumentos.Parameters.Add("pnidConsignataria", pnidConsignataria)
          oraCommandDocumentos.Parameters.Add("pnidCliente", pnidCliente)
          oraCommandDocumentos.Parameters.Add("pcolor_Casco", pcolor_Casco)
          oraCommandDocumentos.Parameters.Add("pcapitan", pcapitan)
          oraCommandDocumentos.Parameters.Add("ppuerto_Reg", ppuerto_Reg)
          oraCommandDocumentos.Parameters.Add("pcodigo_Llamada", pcodigo_Llamada)
          oraCommandDocumentos.Parameters.Add("pnum_Oficial", pnum_Oficial)
          oraCommandDocumentos.Parameters.Add("pnum_Omi", pnum_Omi)
          oraCommandDocumentos.Parameters.Add("pcolocacion_Quilla", pcolocacion_Quilla)
          oraCommandDocumentos.Parameters.Add("ppuesto_Marcha", ppuesto_Marcha)
          oraCommandDocumentos.Parameters.Add("pTRB", pTRB)
          oraCommandDocumentos.Parameters.Add("pTRN", pTRN)
          oraCommandDocumentos.Parameters.Add("ppeso_Muerto", ppeso_Muerto)
          oraCommandDocumentos.Parameters.Add("pconstructores", pconstructores)
          oraCommandDocumentos.Parameters.Add("pclase", pclase)
          oraCommandDocumentos.Parameters.Add("pmotor", pmotor)
          oraCommandDocumentos.Parameters.Add("ppropietarios", ppropietarios)
          oraCommandDocumentos.Parameters.Add("poperador", poperador)
          oraCommandDocumentos.Parameters.Add("pmanga", pmanga)
          oraCommandDocumentos.Parameters.Add("ppuntal", ppuntal)
          oraCommandDocumentos.Parameters.Add("pcalado_Popa", pcalado_Popa)
          oraCommandDocumentos.Parameters.Add("pcalado_Proa", pcalado_Proa)
          oraCommandDocumentos.Parameters.Add("peslora_Total", peslora_Total)
          oraCommandDocumentos.Parameters.Add("peslora_Perpendiculares", peslora_Perpendiculares)
          oraCommandDocumentos.Parameters.Add("paltura", paltura)
          oraCommandDocumentos.Parameters.Add("pluz", pluz)
          oraCommandDocumentos.Parameters.Add("pcalado_Construccion", pcalado_Construccion)

                    oraCommandDocumentos.Parameters.Add("pTransaccion", Oracle.DataAccess.Client.OracleDbType.Byte).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add("pMensaje", Oracle.DataAccess.Client.OracleDbType.Varchar2, 200).Direction = ParameterDirection.Output

                    oraConnection.Open()
                    oraCommandDocumentos.ExecuteNonQuery()
                    pTransaccion = CByte(oraCommandDocumentos.Parameters("pTransaccion").Value.ToString())
                    mensaje = oraCommandDocumentos.Parameters("pMensaje").Value.ToString()
                    oraConnection.Close()
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return pTransaccion
    End Function
  
    ''' <summary>
    ''' Funcion para generar un combo de la tabla Capt_ShipParticulars
    ''' </summary>
    ''' <param name="pNombre">nombre a buscar en la tabla</param>
    ''' <returns>DataTable</returns>
    ''' <remarks>si el nombre es "" retornara todos los registros</remarks>
   Public Function Capt_ShipParticulars_Combo(pNombre As String) As DataTable
        Dim dtResultado As New DataTable("Capt_ShipParticularsCombo")
        Try
            Using oraConnection As New Oracle.DataAccess.Client.OracleConnection(ConfigurationManager.ConnectionStrings("EDIV2DESOraClient").ConnectionString)
                Using oraCommandDocumentos As New Oracle.DataAccess.Client.OracleCommand()
                    oraCommandDocumentos.Connection = oraConnection
                    oraCommandDocumentos.CommandTimeout = consTimeOut
                    oraCommandDocumentos.CommandType = CommandType.StoredProcedure
                    oraCommandDocumentos.CommandText = "EDIV2.?NomPaquete.Capt_ShipParticularsCombo"
                    oraCommandDocumentos.Parameters.Add("pNombre", pNombre)
                    oraCommandDocumentos.Parameters.Add("pTransaccion", Oracle.DataAccess.Client.OracleDbType.Byte).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add(New Oracle.DataAccess.Client.OracleParameter("pCursor", OracleDbType.RefCursor)).Direction = ParameterDirection.Output

                    Dim oraDataAdapter As New OracleDataAdapter(oraCommandDocumentos)
                    oraDataAdapter.Fill(dtResultado)
                    oraConnection.Close()
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return dtResultado
    End Function
  
    ''' <summary>
    ''' Funcion para generar la integracion del documento de la tabla Capt_ShipParticulars
    ''' </summary>
    ''' <param name="pNidDocumento">numero del documento</param>
    ''' <returns>Byte</returns>
    ''' <remarks></remarks>
   Public Function Capt_ShipParticulars_Integracion(pNidDocumento As Long) As Byte
        Dim pTransaccion As Byte = 0
        Dim mensaje As String = String.Empty
        Try
            Using oraConnection As New Oracle.DataAccess.Client.OracleConnection(ConfigurationManager.ConnectionStrings("EDIV2DESOraClient").ConnectionString)
                Using oraCommandDocumentos As New Oracle.DataAccess.Client.OracleCommand()
                    oraCommandDocumentos.Connection = oraConnection
                    oraCommandDocumentos.CommandTimeout = consTimeOut
                    oraCommandDocumentos.CommandType = CommandType.StoredProcedure
                    oraCommandDocumentos.CommandText = "EDIV2.?NomPaquete.Capt_ShipParticularsIntegracion"
                    oraCommandDocumentos.Parameters.Add("pNidDocumento", pNidDocumento)
                    oraCommandDocumentos.Parameters.Add("pTransaccion", Oracle.DataAccess.Client.OracleDbType.Byte).Direction = ParameterDirection.Output
                    oraCommandDocumentos.Parameters.Add("pMensaje", Oracle.DataAccess.Client.OracleDbType.Varchar2, 200).Direction = ParameterDirection.Output

                    oraConnection.Open()
                    oraCommandDocumentos.ExecuteNonQuery()
                    pTransaccion = CByte(oraCommandDocumentos.Parameters("pTransaccion").Value.ToString())
                    mensaje = oraCommandDocumentos.Parameters("pMensaje").Value.ToString()
                    oraConnection.Close()
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return pTransaccion
    End Function
  
   Public Function Capt_ShipParticulars_Borrar(pnid As Long) As Byte
        Dim pTransaccion As Byte = 0
        Dim mensaje As String = String.Empty
        Try
            Using oraConnection As New Oracle.DataAccess.Client.OracleConnection(ConfigurationManager.ConnectionStrings("EDIV2DESOraClient").ConnectionString)
                Using oraCommandDocumentos As New Oracle.DataAccess.Client.OracleCommand()
                    oraCommandDocumentos.Connection = oraConnection
                    oraCommandDocumentos.CommandTimeout = consTimeOut
                    oraCommandDocumentos.CommandType = CommandType.StoredProcedure
                    oraCommandDocumentos.CommandText = "EDIV2.?NomPaquete.Capt_ShipParticularsBorrar"
                    oraCommandDocumentos.Parameters.Add("pnid", pnid)
                    oraCommandDocumentos.Parameters.Add("pTransaccion", Oracle.DataAccess.Client.OracleDbType.Byte).Direction = ParameterDirection.Output

                    oraConnection.Open()
                    oraCommandDocumentos.ExecuteNonQuery()
                    pTransaccion = CByte(oraCommandDocumentos.Parameters("pTransaccion").Value.ToString())
                    oraConnection.Close()
                End Using
            End Using
        Catch ex As Exception
            Throw ex
        End Try
        Return pTransaccion
    End Function
  
  
End Class
